Top 10k strings from Video Basic - Issue 03 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
12 CAR
10 "1";" ":
9
6 A$="PON EN MARCHA LA GRABADORA":
6 "4";"ESTA BIEN ESCRITO ? (S/N)";
6 "23606",z:
6 "10",z;" PARA LA GRABADORA ":
5 t$=" PULSA UNA TECLA PARA CONTINUAR "
5 U;" ";N$;" "
5 -J/A,ER+J/A*.7
5 "9",N;" ~|";
5 "8",N;A$(N-2
5 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
5 "10",N;" \]"
5 PASO A LA PARTE";
4 ;" SIGUIENTE"
4 "23296"+n,
3 b$="tu el":
3 T$=" ELIGE, {:":
3 ,X;" "
3 ''"BIEN "+n$+",":
3 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
3 "126-XL/2",
3 "10-a/2",U;
3 "1";" PARA LA GRABADORA ":
3 INTRODUCCION";
3
2 yp-u,xp;"CALCULO";
2 y$="PULSA UNA TECLA PARA CONTINUAR ":
2 y$=" PULSA UNA TECLA PARA CONTINUAR ":
2 u;"EXACTO !":
2 t$(u+u)-48":
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBREAK: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 p$="VIDEOBASIC-EL LENGUAJE: ":
2 a$=" ":
2 X<21)+(30-X)*(X>20)"):
2 U;"INTENTALO DE NUEVO !":
2 U;"ESTA ES LA INSTRUCCION EXACTA:":
2 TEXT
2 T$="AHORA "+N$:
2 RUTINA MAQUINA DE ESCRIBIR
2 Q$="BIEN "+N$+",":
2 LEE LOS UDG
2 HOMBRECILLO
2 A$="IF..THEN...":
2 A$="GO TO":
2 ;"introduccion";
2 ;"ejemplos y ejercicios";
2 ;"VIDEOBASIC":
2 ;" ";
2 23688/2-U"
2 -----------------------
2 * *
2 (tot-(fr3*65535
2 "BIEN, "+N$+"
2 "5";"INTENTALO DE NUEVO !":
2 "30";" ";
2 "23296"+N,
2 "124-XL/2",
2 "10";"ERROR !";
2 "1";" PON EN MARCHA LA GRABADORA ":
2 "1";" ";
2 "1";" "
2 "1",s;" ";
2 "(21-YP)*8-2":
2 SOFTIDEA (Como)
2 EJERCICIOS";
2 ---------------------
2 D A T A
2 PON EN MARCHA LA GRABADORA
2 PARA LA GRABADORA
2
2
1 z$="10110011":
1 z$="00000000"+z$:
1 yp=yp+(t$(i)="b")-(t$(i)="a"):
1 yp-u-u,xp-
1 yp-u,xp;"E$ =...":
1 xp=xp+(t$(i)="d")-(t$(i)="s"):
1 v$=" "+v$:
1 u;"R=RADIO E$=ELECC. X=RESULT."
1 u;"KE"(FL+U);
1 u;" E$ = ";"LS"(j+u):
1 u;" A = 5 ":
1 tot=(s+m*60
1 t=t2*(t2>t1)+t1*(t1>t2)
1 t$="bbbbbbb"+("ssssssssss"
1 t$="TRADUCCION AL
1 t$="<83^":
1 t$="10 IF A = 5 THEN PRINT ""BIEN""":
1 t$=" ... COMPRENDIDO ? ...":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(3)*4+2":
1 t$(2)-48":
1 t$(2)*8+2":
1 p;" ":
1 p;" ":
1 p$="los temas de la leccion ":
1 p$="juego de adivinanzas sobre ":
1 p$="en el proximo numero... ":
1 p$="el reloj del SPECTRUM ":
1 p$="el microprocesador ":
1 p$="el mapa de memoria ":
1 p$="el SPECTRUM decide ":
1 p$="del SPECTRUM ":
1 p$="contador-ciclo controlado ":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEONEXT":
1 p$="VIDEOLIST":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="Tragaperras ":
1 p$="PEEK - POKE ":
1 p$="La memoria del SPECTRUM ":
1 p$="La funcion: SQR-INT-SGN-ABS ":
1 p$="INTRODUCE HORA MINUTOS SEGUNDOS":
1 p$="El SPECTRUM borda ":
1 p$="Campo minado ":
1 p$=" REM - CLS - GOTO - IF THEN ":
1 p$=" +ENTER +ENTER +ENTER ":
1 n;" ":
1 n;" ":
1 j)+("dddddddddd"
1 j)+"bbbb":
1 j$=j$+"-":
1 j$)-d;" ";
1 f);"__";w$;"___":
1 e$=" "
1 cc-aa,dd-bb,ee:
1 b$=b$+(w$(j)
1 b$="otro":
1 aa,bb,cc,dd,ee:
1 a;" ":
1 a$="quieres repasar esta leccion ?(S/N)":
1 a$="Y LOS REGISTROS, QUE SON MEMO-RIAS RESERVADAS A LA C.P.U.,EN LOS CUALES SE GUARDAN TEM-PORALMENTE LOS RESULTADOS DELAS OPERACIONES EN CURSO.":
1 a$="MIENTRAS EL SISTEMA DECIMALEMPLEA DIEZ CIFRAS (DEL 0 AL9), EL BINARIO UNICAMENTE UTI-LIZA DOS: 0 Y 1.":
1 a$="LAS OCHO PATILLAS DEL Z80A QUETIENEN LA MISION DE ENVIAR YRECIBIR DATOS, SE DENOMINANBUS DE DATOS.
1 a$="LA UNIDAD DE CONTROL, QUE SEENCARGA DE CONTROLAR Y SINCRO-NIZAR LA CORRECTA EJECUCION DELAS INSTRUCCIONES.":
1 a$="LA PROGRAMACION":
1 a$="LA UNIDAD ARITMETICA-LOGICA(A.L.U.), QUE SE OCUPA DE REA-LIZAR OPERACIONES MATEMATICAS.":
1 a$="LA C.P.U. DEL SPECTRUM SELLAMA Z80A. ES UN CHIP DE 40 PATILLAS QUECONTROLA Y DIRIGE TODAS LASOPERACIONES.":
1 a$="HASTA EL PROXIMO NUMERO ":
1 a$="EXAMINEMOS AHORA EL CASOOPUESTO, ES DECIR, LA CONVER-SION DE UN NUMERO DECIMAL ABINARIO. EL METODO MAS SIMPLEES EL DE REALIZAR UNA SERIE DEDIVISIONES POR 2.":
1 a$="EL BUS DE CONTROL INFORMA A LAC.P.U. SOBRE EL TIPO DE INS-TRUCCION QUE SE EJECUTA EN CA-DA MOMENTO.":
1 a$="CON OTRAS 16 PATILLAS, EL Z80ALOCALIZA LA CELDA DE MEMORIA ODISPOSITIVO, CON LA QUE IN-TERCAMBIAR INFORMACIONES ATRAVES DEL BUS DE DATOS.":
1 a$=" Quieres indicar "+b$+" numero (S/N) ?":
1 a$=" HASTA PRONTO ":
1 YP,XP;"SUPERF.":
1 YP,XP;"LONG. ":
1 Y,X;Q$(I);
1 Y,N;A$(N-2
1 Y$=" PULSA UNA TECLA PARA CONTINUAR":
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 X,Y;T$(N):
1 X","042REGRESA","#813","2C60
1 Via Indipendenza 88
1 VIDEOTEST
1 VIDEONEXT
1 VIDEOLIST A
1 VIDEOJUEGO
1 VIDEOHARD
1 VIDEOBREAK
1 VIDEOBASIC N.3
1 VIDEOBASIC
1 U;"VERDADERO!"
1 U;"OTRA VEZ...":
1 U;"FALSO":
1 U;"ERROR !":
1 U;" ERROR ! ":
1 U;" ";
1 U;" ":
1 U+U,XP;A$;
1 TEXT U
1 TEST 03
1 TERMINO INGLES QUE SIGNIFICA~CORRECCION DE ERRORES~ DEBUG
1 TERMINADO EL CICLO, EJECUTA-REMOS NUEVAMENTE EL PROGRAMAPARA PODERLO UTILIZAR.",""
1 T$="TE PROPONGO UN NUEVO TEST: UTILIZA EL TECLADO DE LA FORMAQUE HAS APRENDIDO ANTERIORMEN-TE E INTRODUCE LAS INSTRUCCIO-NES QUE TE VAYA PIDIENDO.":
1 T$="TE PROPONGO UN NUEVO TEST: UTILIZA EL TECLADO DEL MODOQUE HAS APRENDIDO EN LAS LEC-CIONES ANTERIORES E INTRODUCELAS INSTRUCCIONES QUE YO TEVAYA PIDIENDO.":
1 T$="ELIGE, "+N$:
1 T$="CREO QUE ES MEJOR QUE SIGASCON ATENCION EL DESARROLLO DELPROGRAMA, Y LO INTENTES DENUEVO.":
1 T$="30 IF A = 8 THEN PRINT ""BIEN""":
1 T$="#82R":
1 T$=" PULSA UNA TECLA PARA CONTINUAR "
1 T$=" ELIGE, {:":
1 T$=" ELIGE, "+N$+":":
1 T$=" CUIDADO CON EQUIVOCARTE "
1 T$=" PARA LA GRABADORA "
1 SUPONGAMOS QUE HEMOS ASIGNADOA LA VARIABLE <X> UN NUMEROSECRETO, QUE UN AMIGO INTENTAADIVINAR. A LA VARIABLE <T> SEASIGNA LAS DIVERSAS SOLUCIONESQUE ESTE PROPONE. POR TANTO, NECESITAMOS UNAINSTRUCCION QUE ORDENE ALSPECTRUM QUE COMPRUEBE SI ELNUMERO SECRETO HA SIDO ADIVI-NADO; ES DECIR, SI LA VARIABLE<T> ES IGUAL A LA VARIABLE<X>.% A TAL FIN, PODREMOS ESCRIBIRLO SIGUIENTE:} }SI T=X ENTONCES ESCRIBE "OK"}}BIEN, { NO DEBES COMPLICARTE MUCHO PA-RA ENCONTRAR UNA INSTRUCCIONCON ESTE COMETIDO.% %ES SUFICIENTE QUE TRADUZCAS ALINGLES LA INSTRUCCION, TALCUAL LA HAS IMAGINADO; SEGUROQUE TU SPECTRUM LA COMPRENDERAPERFECTAMENTE. } }IF T=X THEN PRINT "OK"} NATURALMENTE, EN VEZ DE PRINT,PUEDES INSERTAR CUALQUIER OTRAINSTRUCCION; DEL MISMO MODO,PUEDES REALIZAR OTRAS COMPARA-CIONES: POR MAYOR O MENOR, ODE VALOR NUMERICO O DE TEXTO.%CU
1 SLOT
1 SISTEMA DE NUMERACION DE DIE-CISEIS CIFRAS HEXADECIMAL
1 SISTEMA DE NUMERACION CON DOSCIFRAS BINARIO
1 SI (LA CONDICION SE CUMPLE)ENTONCES..., DICHO EN BASIC IF THEN
1 SENTENCIA PARA INSERTAR COMEN-TARIOS EN EL PROGRAMA REM
1 SCREEN
1 SALTO INCONDICIONAL A UNA LI-NEA DEL PROGRAMA GOTO
1 S>99999999
1 ROTULOS ENTRNTES
1 ROTULOS ENTRANTES
1 ROTULO ROTTORIO
1 ROTULO ROTATORIO
1 REPRESENTA UNA DECISION EN UNDIAGRAMA DE FLUJO ROMBO
1 REM CLS r
1 RECUERDA NUMERAR LAS LINEAS DE10 EN 10, A PARTIR DE LA 10, YUSAR EL SIMBOLO <PI> PARA3.14.",""
1 R","5*","042ENTRADA","041OPCION ","#823","2720
1 Q$="HEXADECIMAL:":
1 Q$="HEXADECIMAL ":
1 Q$="ESTA BIEN ESCRITO "+N$+" ?":
1 Q$="ESCRIBE TU NOMBRE EN EL TECLA-DO Y PULSA <ENTER>":
1 Q$="ESCRIBE CADA VEZ EL NUMERO SE-GUIDO POR LA LETRA...":
1 Q$="DECIMAL: ":
1 Q$="DECIMAL ":
1 Q$="CON ESTE PROGRAMA PUEDES CON-VERTIR UN NUMERO ESCRITO ENUNA BASE CUALQUIERA (DECIMAL,HEXADECIMAL O BINARIA) Y OBTE-NER SU CORRESPONDIENTE VALOREN..."
1 Q$="BINARIO:":
1 Q$="BINARIO ":
1 Q$="'H' SI ES EN BASE 16":
1 Q$="'D' SI ES EN BASE 10":
1 Q$="'B' SI ES EN BASE 2":
1 Q$=" PULSA: ":
1 Q$=" F PARA TERMINAR C PARA CONTINUAR R PARA OTRA CONVERSION":
1 PROGRAMAC.%
1 PROGRAMA PRINCIPAL
1 PORTADA
1 POR ELLO, SE COLOCA FRECUENTE-MENTE AL COMIENZO DE LOS PRO-GRAMAS, A FIN DE ELIMINAR LOSDATOS QUE EVENTUALMENTE PUEDANESTAR EN LA PANTALLA. CUANDOHAYA GRAN NUMERO DE INFORMA-CIONES PARA ESCRIBIR EN LAPANTALLA, UTILIZA A MENUDO EL<CLS>. ESTO APORTARA UNA MAYORCLARIDAD Y LEGIBILIDAD DE LOSDATOS. SI QUIERES UNA DEMOS-TRACION DE SU FUNCIONAMIENTO,PULSA LA TECLA <CLS> (CORRES-PONDIENTE A LA LETRA <V>).
1 PETICION DEL NOMBRE
1 PANTALLA N
1 PANTALLA
1 P$=" en el numero 4 ":
1 O,i;A$(i-2
1 NUMERO MAXIMO QUE PUEDEN CON-TENER DOS BYTES 65535
1 NUMERO MAXIMO QUE PUEDE CONTE-NER UN BYTE 255
1 N$=N$+" ":
1 MEMORIAS INTERNAS DE LA Z80A REGISTROS
1 M-15335-1985
1 Longitud = 2*R*3,14.","La variable E$ contendra S oL para elegir entre las dos.",""
1 LA SENTENCIA <IF...THEN...> ESUNA DE LAS MAS IMPORTANTES,PUESTO QUE SIRVE PARA QUE ELORDENADOR EVALUE DETERMINADASCONDICIONES, EN BASE A LASCUALES EL PROGRAMA ESCOGERA ELCAMINO ADECUADO PARA CADA CIR-CUNSTANCIA.
1 LA MENOR UNIDAD DE INFORMACION BIT
1 LA COSTANTE 3.14 SE OBTIENEDIRECTAMENTE MEDIANTE EL SIM-BOLO <PI>, CORRESPONDIENTE ALA TECLA <M> EN EL MODO EXTEN-DIDO.
1 LA SENTENCIA <GO TO> QUIEREDECIR VE A, Y VA SIEMPRE SE-GUIDA DE UN NUMERO EN FORMA DECONSTANTE, VARIABLE O EXPRE-SION NUMERICA.
1 INGELEK JAKSON
1 IF THEN IN
1 IF THEN ES
1 HAS ESCRITO EXACTAMENTE TUPROGRAMA, UTILIZANDO DOS NUE-VAS E IMPORTANTES SENTENCIAS:
1 H$=" ":
1 GRUPO DE OCHO BITS BYTE
1 GOTO IN )
1 GOTO ES
1 GIGANTES ,
1 FUNCIONA DE ESTE MODO ..":
1 ERROR=9200
1 ERR","SI LA CADENA F$ ES DISTINTA","DE <SI>, VE A LA LINEA","CONTENIDA EN LA VARIABLE ERR",""
1 ERR","SALTA AL NUMERO DE LINEA","CONTENIDO EN LA VAR. <ERR>.",""
1 EN REALIDAD, LA UTILIDAD DEESTA SENTENCIA CONSISTE ENOFRECER LA POSIBILIDAD DE IN-SERTAR COMENTARIOS, TITULOS YDESCRIPCIONES EN EL PUNTO DELPROGRAMA QUE DESEES, SIN QUEESTO ALTERE EL NORMAL DESEN-VOLVIMIENTO DEL MISMO.% %POR EJEMPLO, ESCRIBE:} }10 REM GEOMETRIA} }PARA DAR UN TITULO A TU PRO-GRAMA. SIN EMBARGO...} }30 LET S=B*H/2: REM CALCULO.PARA COMENTAR UNA INSTRUCCION RECUERDA QUE TRAS LA SENTENCIA<REM> NO PUEDES SITUAR NINGUNCOMANDO SI QUIERES QUE SEACONSIDERADO COMO TAL; DE SERASI, DEBERAS COLOCARLO EN LALINEA SIGUIENTE.% %FIJATE EN EL EJEMPLO QUE TEPROPONGO. LA INSTRUCCION<PRINT "OK"> NO SERA EJECUTADASI ESTA SITUADA DETRAS DELREM.} }10 REM PRINT "OK"} }20 REM GEOMETRIA:PRINT "OK"
1 EN LA PRACTICA, CUANDO TUSPECTRUM ENCUENTRA UNA INS-TRUCCION DE ESTE TIPO, EN VEZDE CONTINUAR EN LA LINEA SI-GUIENTE, 'SALTA' A AQUELLA QUESE INDICA DETRAS DEL <GO TO>,PROSIGUIENDO A PARTIR DE AQUELPUNTO COMO SI NADA HUBIERAOCURRIDO.
1 EL COMANDO <CLS> SIRVE PARALIMPIAR COMPLETAMENTE LA PAN-TALLA, DE FORMA QUE PUEDA SERUTILIZADA POR NUEVOS DATOS.
1 EL NOMBRE DE LA CPU DELSPECTRUM Z80A
1 E=1","SI LA VARIABLE <TOT>","ES MAYOR QUE LA VAR. <LIM>","ENTONCES ASIGNA 1 EN LA","VARIABLE <E>",""
1 E$="TRES":
1 E$="JACKPOT":
1 E$=" SOCORRO!!! ME HE EQUIVOCADO!":
1 E$=" PERDISTE ":
1 E$=" LO HAS PERDIDO TODO, RETIRATE!":
1 DIR*100","VETE A LA LINEA OBTENIDA","MULTIPLICANDO LA VARIABLE","<DIR> POR 100.","",""
1 DEC=DEC-H(3
1 DEC=DEC-H(2
1 DEC=DEC-H(1
1 DEC=DEC+C*2
1 DEC=DEC+C*16
1 CONV.NUM
1 COMO HAS PODIDO COMPROBAR, LAINSTRUCCION <GO TO 300> HA AL-TERADO LA EJECUCION NORMAL DELPROGRAMA, FORZANDO UN SALTO ALA LINEA 300. CUANDO ESTA LI-NEA NO EXISTE, SE CONSIDERA ELSALTO A LA LINEA POSTERIOR.% %POR EJEMPLO, PUEDES ESCRIBIR:}40 GO TO 7*A^2} }PARA INDICAR LA LINEA DE DES-TINO EN FORMA DE EXPRESION,O BIEN} }50 GOTO ERROR} }EN ESTE CASO, LA DIRECCION DELSALTO ESTA CONTENIDA EN LA VA-RIABLE <ERROR> A LA QUE SE HA-BRA ASIGNADO UN VALOR ANTE-RIORMENTE.% %UN PROGRAMA ESCRITO DE ESTAFORMA, POSEE UNA GRAN LEGIBI-LIDAD Y SE MODIFICA E INTER-PRETA CON FACILIDAD, AUNQUEHAYA PASADO MUCHO TIEMPO DESDESU REALIZACION.} }AUNQUE LA INSTRUCCION <GO TO>ES MUY PRACTICA, TE ACONSEJOQUE LA UTILICES CON CIERTAPRECAUCION, PARA EVITAR HACERMAS LENTOS LOS PROGRAMAS E IN-TERRUMPIR EXCESIVAS VECES LAEJECUCION CONTINUA, DIFICUL-TANDO LA FASE DE CORRECCION YDE RELECTURA.
1 COMO **** *VIA INDIPENDENZA, 88* *** TEL.031-240959 ***
1 COMANDO PARA BORRAR LA PANTA-LLA CLS
1 CIFRA HEXADECIMAL QUE CORRES-PONDE A 10 DECIMAL A
1 CHAR 0
1 CHAR
1 C$","SI LA CADENA <C$> ES IGUAL","A LA CONSTANTE ""X"",","ENTONCES LEE C$ DEL TECLADO",""
1 BINARIO>DECIMAL
1 BIN/DEC $
1 B$="------------"
1 AHORA INTENTA TU REESCRIBIR ELPROGRAMA EN BASE AL DIAGRAMADE FLUJO.
1 A$="VIDEOTEST ":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$="GRACIAS A LA SOFISTICADA TEC-NOLOGIA DE INTEGRACION, ESTECHIP ENCIERRA EN SU INTERIORMILLONES DE COMPONENTES. LOSTRES ELEMENTOS FUNDAMENTALESDEL Z80A SON:":
1 A$="EL SISTEMA BINARIO, AL IGUALQUE EL DECIMAL, ES POSICIONAL,ES DECIR, EL VALOR DE CADA CI-FRA (0 o 1), DEPENDE DE LA PO-SICION OCUPADA POR LA MISMA APARTIR DE LA DERECHA (PARTEBAJA DE LA FIGURA).":
1 A$="CADA CIFRA VALE EL PRODUCTO DESI MISMA, POR LA POTENCIA DEDOS QUE CORRESPONDE A SU PO-SICION (CONTANDOLA SIEMPREDESDE LA DERECHA: 2^0, 2^1,ETC...).":
1 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
1 <REM> ES LA SENTENCIA BASICQUE SIRVE PARA... !NADA! DE HECHO, CUANDO TU SPECTRUMLA ENCUENTRA, LA IGNORA COM-PLETAMENTE Y PASA A LA LINEASIGUIENTE.
1 <GO TO> E <IF.. THEN..>"
1 <<<<<88888888:::::::::9;;;;;;;;<<<<<<888888888:::8:::::;;;;;;;<<<<<<<8888'8888:::8::::::;;;;;<<<<<<<>>8?777888:::::::::::;
1 ;n$;" ? (s/n)"
1 ;<<<<<&&>>
1 ;"y desenchufa de la red tu";
1 ;"muy bien, felicidades!"
1 ;"Y PULSA <ENTER>":
1 ;"TUVISTE SUERTE! QUE TAMBOR GIRA-MOS DE NUEVO? (1,2,3)"
1 ;"SPECTRUM. Hasta pronto,";
1 ;"PULSA ~0~ PARA OTRA VEZ ~1~ PARA TERMINAR "
1 ;"PRUEBA AHORA"
1 ;"PARA MEJORAR, RELEE";
1 ;"NO TE PUEDO AYUDAR":
1 ;"NO EXAGERES!":
1 ;"La respuesta correcta es:";
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"HE AQUI UNA AYUDA:"
1 ;"ESCRIBE TU NOMBRE";
1 ;"EN EL TECLADO";
1 ;"E J E M P L O"
1 ;"DECIMAL > BINARIO"
1 ;"Coloca la casete en su caja";
1 ;"CUANTOS PUNTOS DE 1` ";(S);"` ?";
1 ;"- - - - - -"''':
1 ;"""";i$;""" esta equivocado."
1 ;" pulsa una tecla "
1 ;" ESCRIBE EL NUMERO A CONVERTIR ";
1 ;" ";E$;" "
1 ;" PON EN MARCHA LA GRABADORA PARA CARGAR UN NUEVO PROGRAMA "
1 ;" Esta bien escrito";
1 ;" SIGUIENTE"
1 ;" HORA MINUTOS SEGUNDOS ";
1 ;" PULSA LA TECLA ""V"" !",:
1 ;" PARA LA GRABADORA PULSA UNA TECLA PARA CONTINUAR "
1 ;" PARA LA GRABADORA Y PULSA UNA TECLA":
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" VIDEOHARDWARE curso de hardware "
1 ;" ":
1 ;" VIDEOBASIC presenta.."
1 ;" ";
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ";
1 ;" ":
1 ;" ";
1 ;" ":
1 ;" ";
1 ;" ":
1 999999999999999999999999999999999<<<<<<<<<<<<<<<<<<<<<9<9999999999999999999999999999999>999999999<<<<<<<<<<<<<<<<<<<<<9>9999999999999988888888888999999>999999999<<<<<:::::::::::<<<<<9>9999999999999999998999999999999>999999999<<<<<<<<<8<<<<<<<<<<<9>99999999999999999989999999999999999999999<<<<<<<<<8<<<<<<<<<<<99<9999999999999999988899999999999<99999999<<<<<<<<<88<<<<<<<<<<99999999999999999999999999999999::::9::::99<<<<<<<<<<<<<<<<<<<<<::::;::::99999999999999999999999::::;::::99<<<<<<<<<<<<<<<<<<<<<::::;::::9999999999999999999999999999999999<<<<<<<<<<<<<<<<<<<<<9999999999999999999999999999999999999999999<<<<<<<<<<<<<<<<<<<<<999999999999999999999999999999999999999999999999999999999999999999999999998888888888888888888888888888888888888888888888888888888888888888U
1 8888888888888888888888888888888888888888898999999888888888888888888888888999899999998888888888888888888889998999899988888888888888888::88999899989998888888888888::::::::999899989999<<<<88888888::::::::99989
1 88'77888:::::::::888<<<<<<<
1 5 EL BLOQUE <DECISION>
1 43 - FASE DE SALIDA","CUAL ES EL OBJETIVO DEL PRO-GRAMA ?",""
1 4 S A L I D A ","043IMPRIME","#813","2A50
1 22 - FASE DE ELABORACION","COMO SE OBTIENE LA SUPERFICIEDE UNA CIRCUNFERENCIA ?",""
1 200","VETE A LA LINEA 200",""
1 2 ELABORACION ","023L","0=0S","050E$=..","<61;","0132*R*#","#61A"
1 1E N T R A D A","043ENTRADA","041 RADIO ","#82;","2410
1 120","SI LA CADENA <C$> ES MENOR","O IGUAL QUE <K$>, ENTONCES","VETE A LA LINEA 120",""
1 11 - FASE DE ENTRADA","CUALES SON LOS ELEMENTOS RELA-CIONADOS CON NUESTRO PROBLEMA?",""
1 00000000000000000000000000000000000000000000000000000000000000000000000000111111111111102110000000000000021111111111111221100000000000000222222222222222211000000000000002222222222222222110000000000000000000000000000000000000666666666660000000006600000000006666666666666666666666666666666666666666666666666666666666666666:????????????????????????????????????????????????????????????????::::???????????????????????????????????????????????????????????::::????????????????????????????88??????????????????????????????88?????????????????????:?????88?88???????????88?????::::?????88?88???????88????????89:::?????88?8888888888888888889999999???????888888888888888888999999:8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 ,X;"O Oooo"
1 **si interrumpe este programa, para continuar, no debe ejecutar RUN sino GOTO 30*
1 **AYUDA II INTENTO**
1 ***trafico***
1 ***puntuacion***
1 ***pulsa tecla***
1 ***flash respuestas***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***FONDO***
1 ***CLS BAJO***
1 *(P$(I)>"9")
1 )-(fr2*256
1 ));q$(q,65
1 ))))))))))))))))))))))))))))))))))QQQQQQQQQQQyyyyyyyyy))))))))))))QQQQQQQQQQQyyyyyyy99)))))))))))))))))))))))9999999))))))))))))VVVVVVVVVVVVVVVVVVVVVVVVVVVVVV**!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!**""""""""""""""""""""""""""""""(("*222222*"!*222222*!!*222222*!((!22222222!!20000002!!20000002!((!22221112!!22222202!!22221112!((!22211112!!22200202!!22211112!+(!20211112!!22222222!!20211112!+(!21111112!!22222222!!21111112!+(!21111112!!211!!!12!!21111112!+(!21111112!!211!!!12!!21111112!+(!22222222!!20000002!!22222222!+(!20000002!!20000002!!20000002!++!22222222!!22222222!!22222222!++!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!++!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!+(!!!!!!!!!pppppppppppp!!!!!!!!!+(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!**((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((V
1 (tot/65535
1 ((d-(h*3600
1 ("BIEN, ";N$'"AHORA INTRODUCE ""R"" PARA CONTI-NUAR ");
1 ''88888888:::::88;;;;;8<<''>>>>8888888888:::::888;;;;;8888888888888888888:::::888;;;;;8888888888888888888::::??????????????????????8888899:::88MOOOOOOOOOOOOOOOOOOM8888<9999998888888888888888888888888899999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 '''8888:::::::::888
1 '''888888:::z:::88;;;8<<<''&>>>
1 ''" PARA LA TRANSFORMACION: "''" BINARIO-DECIMAL pulsa B"
1 '"SIGUE CON ATENCION ESTAS NOTASSOBRE LA C.P.U DE UN ORDENADOR."
1 '"ESTE PROGRAMA TE PERMITIRA CAL-CULAR UN NUMERO BINARIO CONO-CIENDO SU CORRESPONDIENTE DECI-MAL Y VICEVERSA.":
1 '"EL PROGRAMA QUE HAS VISTO, TEPERMITE CALCULAR UN NUMERO BINA-RIO CONOCIENDO SU CORRESPONDIEN-TE DECIMAL Y VICEVERSA."
1 '" DECIMAL-BINARIO pulsa D"''" FIN pulsa F"''" haz tu eleccion :";
1 "xg+xs/2",yg+ys*
1 "Superficie = R*R*3,14
1 "RESPUESTA = ";
1 "QUEREMOS ESCRIBIR UN PROGRAMAQUE SIRVA PARA CALCULAR, ANUESTRA ELECCION, LA LONGITUDO LA SUPERFICIE DE UN CIRCULO,EN BASE A UN RADIO DADO.",""
1 "PONGAMOS AHORA EN PRACTICA LOSCONCEPTOS EXPUESTOS ANTERIOR-MENTE, OBSERVANDO COMO SE USAEN REALIDAD LA SENTENCIA<GOTO>.",""
1 "PONGAMOS AHORA EN PRACTICA LOSCONCEPTOS ANTERIORMENTE EX-PUESTOS, OBSERVANDO COMO SEUSA EFECTIVAMENTE LA SENTENCIA<IF..THEN..>.",""
1 "Los datos necesarios son: ra-dio del circulo R y opcion es-cogida: S para la superficie;L para la longitud.",""
1 "INTRODUCE ""R"" PARA REINTENTAR ! ";
1 "IF VAR1=3 THEN PRINT 1","SI LA VARIABLE <VAR1> CONTIE-NE EL NUMERO <3>, LA IGUALDADSE CUMPLE Y LA INSTRUCCION QUELE SIGUE ES EJECUTADA.",""
1 "IF EDAD>LIMITE THEN ..","EN ESTE CASO, SE COMPARAN DOSVARIABLES, PERO EL CONCEPTO ESEL MISMO. OBVIAMENTE, NO ES POSIBLE COM-PARAR ELEMENTOS DE DISTINTOTIPO.",""
1 "IF A<B THEN IF C$=D$ THEN..","EL SPECTRUM TE PERMITE CONCA-TENAR VARIAS INSTRUCCIONESIF..THEN..PARA EFECTUAR COMPA-RACIONES MULTIPLES. LA ULTIMA INSTRUCCION SERAEJECUTADA UNICAMENTE SI TODASLAS CONDICIONES SE HAN CUMPLI-DO.","",""
1 "IF A/5+RR >= X^(3/B) THEN..",".. UNO SOLO O AMBOS OPERANDOSPUEDEN ESTAR CONSTITUIDOS POREXPRESIONES, INCLUSO MUY COM-PLEJAS...",""
1 "GO TO ERROR","EN ESTE CASO, LA LINEA DE DES-TINO ESTA CONTENIDA EN LA VA-RIABLE 'ERROR'.",""
1 "GO TO 2000+DIR*100","EN ESTE CASO, TU <SPECTRUM>CALCULA EL VALOR DE LA EXPRE-SION 2000+DIR*100, DESPUES DELO CUAL SE VA A LA LINEA OBTE-NIDA.",""
1 "GO TO 1000","EL ORDENADOR INTERRUMPE LASECUENCIA NORMAL DE INSTRUC-CIONES, PARA CONTINUAR EN LALINEA 1000.",""
1 "El objetivo del programa esimprimir, tras nuestra elec-cion, el calculo de la super-ficie o de la longitud de unacircunferencia","",""
1 "CONTINUAMOS, "+N$,"CON NUEVOS ELEMENTOS DE LAPROGRAMACION.",""
1 "CALCULO DE DOS ELEMENTOS"," DE UN CIRCULO"
1 "AHORA, "+N$,"TRASFORMAMOS EL ANALISIS EN UNDIAGRAMA DE FLUJO, Y DESPUESEN INSTRUCCIONES <BASIC>."
1 "9",f;" ";r:
1 "6";"ELIGE";
1 "6";"/ 2 = ";
1 "5";"PREGUNTA N. ";w
1 "5";" ":
1 "4";"N. BINARIO = ";j$:
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "4";"DATOS"
1 "4",N;A$(N-
1 "32023"+I,
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"RESTO = ";r
1 "3";"ESTA BIEN ESCRITO ? (S/N)"
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";" ESTA BIEN ESCRITO ? (S/N)"
1 "26";"NUM.";
1 "26";"DIV.";
1 "25";"OK":
1 "24";" ";
1 "23617",Z:
1 "23617",U:
1 "23295+I",
1 "227-I",49
1 "22";"A L U"
1 "2";"TU PUNTUACION HA SIDO ";s'" SOBRE 30."
1 "2";"N. DECIMAL = ";:
1 "2";"MUY BIEN ";n$;
1 "2";"CONVERSION";
1 "19";"ES EXACTO."
1 "17";"DIRECCIONES"
1 "162"-f);"=";w(
1 "14";" ":
1 "11";q$(q,
1 "10";"VIDEOBASIC":
1 "10 LET ERR=0","20 INPUT A$","30 GO TO 300","40 PRINT A$","......","300 PRINT ""BIEN"""
1 "1";"compuesto de 0/1 y pulsa ENTER"
1 "1";"Pon un numero (max 8 cifras)";
1 "1";"Escribe el numero (N<256)"
1 "1";" ":
1 "090R*R*#","#61A"
1 "041INICIO","#810","16
1 ","SI LA VARIABLE <A>","ES IGUAL A LA VARIABLE <B>","ENTONCES IMPRIME",""
1 "*1 ","5*"
1 "*1 ","% "
1 segundos
1 introduccion hora
1 VUELTA AL PRINCIPIO";
1 Tel. 031-240.959
1 SOFTIDEA COMO -
1 SOFTIDEA (Como)
1 SOFTIDEA (Como)
1 SOFTIDEA COMO -
1 SOFTIDEA COMO -
1 PRIMER SIMBOLO
1 HEXADECIMAL>DECIMAL
1 EJERCICIO"
1 DECIMAL>BINARIO
1 DECIMAL HEXADECIMAL
1 CONTROLES"
1 CARGO LA PARTE SIGUIENTE";
1 CARGO EL VIDEOJUEGO"
1 - SOFTIDEA COMO -
1 ""G"" THEN..","EN ESTA COMPARACION ENTRE VA-LORES ALFANUMERICOS, LA CONDI-CION SE VERIFICA CUANDO LA CA-DENA ES MAYOR O IGUAL QUE LACONSTANTE.",""
1 Pon en marcha la grabadora
1 PULSA ~SPACE~ PARA SALIR
1 BASIC":
1 ":
1
1
1
1
1
1